home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagn_r.zip / NUMBERS.SWG / 0007_BYT2REAL.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  530b  |  24 lines
  1. Type
  2.   bsingle = Array [0..3] of Byte;
  3.  
  4. { converts Microsoft 4 Bytes single to TP Real }
  5.  
  6. Function msb_to_Real (b : bsingle) : Real;
  7. Var
  8.   pReal : Real;
  9.   r     : Array [0..5] of Byte Absolute pReal;
  10. begin
  11.   r [0] := b [3];
  12.   r [1] := 0;
  13.   r [2] := 0;
  14.   move (b [0], r [3], 3);
  15.   msb_to_Real := pReal;
  16. end; { Function msb_to_Real }
  17.  
  18. {
  19. Another Turbo Pascal routine to convert Microsoft single to TP LongInt
  20.  
  21. index := ((mssingle and not $ff000000) or $00800000) shr (24 -
  22. ((mssingle shr 24) and $7f)) - 1;
  23. }
  24.